home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / h / external.h < prev    next >
C/C++ Source or Header  |  1987-06-04  |  13KB  |  693 lines
  1. /*
  2. (c) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
  3. Copying of this file is authorized to users who have executed the true and
  4. proper "License Agreement for Kyoto Common LISP" with SIGLISP.
  5. */
  6.  
  7. /*  alloc.c  */
  8. char *alloc_page();
  9. object alloc_object();
  10. char *alloc_contblock();
  11. char *alloc_relblock();
  12. init_alloc();
  13. init_alloc_function();
  14.  
  15. /*  array.c  */
  16. enum aelttype array_elttype();
  17. array_allocself();
  18. object aref();
  19. object aset();
  20. object aref1();
  21. object aset1();
  22. adjust_displaced();
  23. init_array_function();
  24.  
  25. /*  assignment.s  */
  26. setq();
  27. init_assignment();
  28.  
  29. /*  backq.c  */
  30. int backq_level;
  31.  
  32. /*  bds.c  */
  33. bds_unwind();
  34.  
  35. /*  big.c  */
  36. struct bignum *stretch_big();
  37. struct bignum *copy_big();
  38. struct bignum *copy_to_big();
  39. bool big_zerop();
  40. int big_sign();
  41. int big_compare();
  42. int complement_big();
  43. struct bignum *big_minus();
  44. add_int_big();
  45. sub_int_big();
  46. mul_int_big();
  47. int div_int_big();
  48. struct bignum *big_plus();
  49. struct bignum *big_times();
  50. int big_length();
  51. int big_quotient_remainder();
  52. normalize_big();
  53. object normalize_big_to_object();
  54. double big_to_double();
  55.  
  56. /* bind.c */
  57. object ANDoptional;
  58. object ANDrest;
  59. object ANDkey;
  60. object ANDallow_other_keys;
  61. object ANDaux;
  62. object Kallow_other_keys;
  63. lambda_bind();
  64. object find_special();
  65. object let_bind();
  66. object letA_bind();
  67. init_bind();
  68.  
  69. /* block.c */
  70. object Sblock;
  71. init_block();
  72.  
  73. /*  cfun.c  */
  74. object make_cfun();
  75. object MF();
  76. object MM();
  77. object make_function();
  78. object make_si_function();
  79. object make_special_form();
  80. object make_macro();
  81. init_cfun();
  82.  
  83. /*  character.d  */
  84. object STreturn;
  85. object STspace;
  86. object STrubout;
  87. object STpage;
  88. object STtab;
  89. object STbackspace;
  90. object STlinefeed;
  91. object STnewline;
  92. int digitp();
  93. int digit_weight();
  94. bool char_eq();
  95. bool char_equal();
  96. object coerce_to_character();
  97. init_character();
  98. init_character_function();
  99.  
  100. /*  catch.c  */
  101. init_catch();
  102.  
  103. /*  cmpaux.c  */
  104. char object_to_char();
  105. set_VV();
  106. int object_to_int();
  107. float object_to_float();
  108. double object_to_double();
  109.  
  110. /*  error.c  */
  111. FEerror();
  112. FEwrong_type_argument();
  113. FEtoo_few_arguments();
  114. FEtoo_few_argumentsF();
  115. FEtoo_many_arguments();
  116. FEtoo_many_argumentsF();
  117. FEunexpected_keyword();
  118. FEinvalid_form();
  119. FEunbound_variable();
  120. FEinvalid_variable();
  121. FEundefined_function();
  122. FEinvalid_function();
  123. object Kerror;
  124. object Kwrong_type_argument;
  125. object Ktoo_few_arguments;
  126. object Ktoo_many_arguments;
  127. object Kunexpected_keyword;
  128. object Kinvalid_form;
  129. object Kunbound_variable;
  130. object Kinvalid_variable;
  131. object Kundefined_function;
  132. object Kinvalid_function;
  133. object wrong_type_argument();
  134. object Kcatch;
  135. object Kcatchall;
  136. object Kprotect;
  137. int init_error();
  138.  
  139. /*  eval.c  */
  140. object Sapply;
  141. object Sfuncall;
  142. funcall();
  143. funcall_no_event();
  144. lispcall();
  145. lispcall_no_event();
  146. symlispcall();
  147. symlispcall_no_event();
  148. object simple_lispcall();
  149. object simple_lispcall_no_event();
  150. object simple_symlispcall();
  151. object simple_symlispcall_no_event();
  152. super_funcall();
  153. super_funcall_no_event();
  154. eval();
  155. object Vevalhook;
  156. object Vapplyhook;
  157. object ieval();
  158. object ifuncall1();
  159. object ifuncall2();
  160. object ifuncall3();
  161. init_eval();
  162.  
  163. /*  unixfasl.c  fasload.c  */
  164. fasload();
  165.  
  166. /*  file.d  */
  167. object Vstandard_input;
  168. object Vstandard_output;
  169. object Verror_output;
  170. object Vquery_io;
  171. object Vdebug_io;
  172. object Vterminal_io;
  173. object Vtrace_output;
  174. object Kabort;
  175. object Kdirection;
  176. object Kinput;
  177. object Koutput;
  178. object Kio;
  179. object Kprobe;
  180. object Kelement_type;
  181. object Kdefault;
  182. object Kif_exists;
  183. object Kerror;
  184. object Knew_version;
  185. object Krename;
  186. object Krename_and_delete;
  187. object Koverwrite;
  188. object Kappend;
  189. object Ksupersede;
  190. object Kif_does_not_exist;
  191. object Kerror;
  192. object Kcreate;
  193. object Kprint;
  194. object Kverbose;
  195. object Kif_does_not_exist;
  196. object Kset_default_pathname;
  197. object Vload_verbose;
  198. object FASL_string;
  199. end_of_stream();
  200. bool input_stream_p();
  201. bool output_stream_p();
  202. object stream_element_type();
  203. object open_stream();
  204. close_stream();
  205. object make_two_way_stream();
  206. object make_echo_stream();
  207. object make_string_input_stream();
  208. object make_string_output_stream();
  209. object get_output_stream_string();
  210. int readc_stream();
  211. unreadc_stream();
  212. writec_stream();
  213. writestr_stream();
  214. unwritec_stream();
  215. flush_stream();
  216. bool stream_at_end();
  217. bool listen_stream();
  218. int file_position();
  219. int file_position_set();
  220. int file_length();
  221. int file_column();
  222. load();
  223. init_file();
  224. init_file_function();
  225. object read_fasl_data();
  226.  
  227. #ifdef UNIX
  228. /*  unixfsys.c  */
  229. coerce_to_filename();
  230. FILE *backup_fopen();
  231. int file_exists();
  232. int file_len();
  233. #else
  234. /*  filesystem.c  */
  235. FILE *backup_fopen();
  236. int file_exists();
  237. int file_len();
  238. #endif
  239.  
  240. /*  frame.c  */
  241. unwind();
  242. frame_ptr frs_sch();
  243. frame_ptr frs_sch_catch();
  244.  
  245. /*  gbc.c  */
  246. bool GBC_enable;
  247. GBC();
  248. init_GBC();
  249.  
  250. /*  let.c  */
  251. let_var_list();
  252. init_let();
  253.  
  254. /*  lex.c  */
  255. object assoc_eq();
  256. lex_fun_bind();
  257. lex_macro_bind();
  258. lex_tag_bind();
  259. lex_block_bind();
  260. object lex_tag_sch();
  261. object lex_block_sch();
  262.  
  263. /*  list.d  */
  264. object Ktest;
  265. object Ktest_not;
  266. object Kkey;
  267. bool endp1();
  268. object car();
  269. object cdr();
  270. object kar();
  271. object kdr();
  272. object caar();
  273. object cadr();
  274. object cdar();
  275. object cddr();
  276. object caaar();
  277. object caadr();
  278. object cadar();
  279. object caddr();
  280. object cdaar();
  281. object cdadr();
  282. object cddar();
  283. object cdddr();
  284. object caaaar();
  285. object caaadr();
  286. object caadar();
  287. object caaddr();
  288. object cadaar();
  289. object cadadr();
  290. object caddar();
  291. object cadddr();
  292. object cdaaar();
  293. object cdaadr();
  294. object cdadar();
  295. object cdaddr();
  296. object cddaar();
  297. object cddadr();
  298. object cdddar();
  299. object cddddr();
  300. object nth();
  301. object nthcdr();
  302. object make_cons();
  303. stack_cons();
  304. object list();
  305. object listA();
  306. object append();
  307. object copy_list();
  308. bool member_eq();
  309. delete_eq();
  310. object nconc();
  311. init_list_function();
  312.  
  313. /*  macros.c  */
  314. object Vmacroexpand_hook;
  315. object siSdefmacroA;
  316. object macro_expand();
  317. init_macros();
  318.  
  319. /*  main.c  */
  320. int ARGC;
  321. char **ARGV;
  322. #ifdef UNIX
  323. char **ENVP;
  324. #endif
  325. char lisp_implementation_version[];
  326. char system_directory[];
  327. object siVsystem_directory;
  328. #ifdef UNIX
  329. char *kcl_self;
  330. #endif
  331. bool initflag;
  332. char *merge_system_directory();
  333.  
  334. /*  mapfun.c  */
  335. init_mapfun();
  336.  
  337. /*  multival.c  */
  338. init_multival();
  339.  
  340. /*  number.c  */
  341. int fixint();
  342. int fixnnint();
  343. object shortfloat_zero;
  344. object longfloat_zero;
  345. object make_fixnum();
  346. object make_ratio();
  347. object make_shortfloat();
  348. object make_longfloat();
  349. object make_complex();
  350. init_number();
  351. init_number_function();
  352. double number_to_double();
  353. int b_clr_op();
  354. int b_set_op();
  355. int b_1_op();
  356. int b_2_op();
  357. int b_c1_op();
  358. int b_c2_op();
  359. int and_op();
  360. int ior_op();
  361. int xor_op();
  362. int eqv_op();
  363. int nand_op();
  364. int nor_op();
  365. int andc1_op();
  366. int andc2_op();
  367. int orc1_op();
  368. int orc2_op();
  369.  
  370. /*  num_pred.c  */
  371. int complex_zerop();
  372. int number_zerop();
  373. int number_plusp();
  374. int number_mimusp();
  375.  
  376. /*  num_comp.c  */
  377. int number_compare();
  378.  
  379. /*  num_arith  */
  380. object bignum2();
  381. object bignum3();
  382. object number_to_complex();
  383. object complex_plus();
  384. object number_plus();
  385. object number_negate();
  386. object number_minus();
  387. object number_times();
  388. object number_divide();
  389. object integer_divide1();
  390. object get_gcd();
  391. object get_lcm();
  392. object one_plus();
  393. object one_minus();
  394.  
  395. /*  num_co.c  */
  396. object double_to_integer();
  397. object remainder();
  398.  
  399. /*  num_log.c  */
  400. int double_shift();
  401. object shift_integer();
  402.  
  403. /*  package.d  */
  404. bool member_string_equal();
  405. object lisp_package;
  406. object user_package;
  407. object keyword_package;
  408. object system_package;
  409. object Vpackage;
  410. object Kinternal;
  411. object Kexternal;
  412. object Kinherited;
  413. object Knicknames;
  414. object Kuse;
  415. int intern_flag;
  416. object uninterned_list;
  417. object make_package();
  418. object in_package();
  419. object rename_package();
  420. object find_package();
  421. object coerce_to_package();
  422. object current_package();
  423. int pack_hash();
  424. object intern();
  425. object find_symbol();
  426. bool unintern();
  427. export();
  428. unexport();
  429. import();
  430. shadowing_import();
  431. shadow();
  432. use_package();
  433. unuse_package();
  434. init_package();
  435. init_package_function();
  436.  
  437. /*  pathname.d  */
  438. object Vdefault_pathname_defaults;
  439. object Kwild;
  440. object Knewest;
  441. object Kstart;
  442. object Kend;
  443. object Kjunk_allowed;
  444. object Khost;
  445. object Kdevice;
  446. object Kdirectory;
  447. object Kname;
  448. object Ktype;
  449. object Kversion;
  450. object Kdefaults;
  451. object Kroot;
  452. object Kcurrent;
  453. object Kparent;
  454. object Kper;
  455. object parse_namestring();
  456. object coerce_to_pathname();
  457. object default_device();
  458. object merge_pathnames();
  459. object namestring();
  460. object coerce_to_namestring();
  461.  
  462. /*  prediate.c  */
  463. bool eql();
  464. bool equal();
  465. bool equalp();
  466. init_predicate_function();
  467.  
  468. /*  print.d  */
  469. object Kupcase;
  470. object Kdowncase;
  471. object Kcapitalize;
  472. object Kstream;
  473. object Kescape;
  474. object Kpretty;
  475. object Kcircle;
  476. object Kbase;
  477. object Kradix;
  478. object Kcase;
  479. object Kgensym;
  480. object Klevel;
  481. object Klength;
  482. object Karray;
  483. object Vprint_escape;
  484. object Vprint_pretty;
  485. object Vprint_circle;
  486. object Vprint_base;
  487. object Vprint_radix;
  488. object Vprint_case;
  489. object Vprint_gensym;
  490. object Vprint_level;
  491. object Vprint_length;
  492. object Vprint_array;
  493. object *PRINTvs_top;
  494. object *PRINTvs_limit;
  495. object PRINTstream;
  496. bool PRINTescape;
  497. bool PRINTpretty;
  498. bool PRINTcircle;
  499. int PRINTbase;
  500. bool PRINTradix;
  501. object PRINTcase;
  502. bool PRINTgensym;
  503. int PRINTlevel;
  504. int PRINTlength;
  505. bool PRINTarray;
  506. int (*write_ch_fun)();
  507. edit_double();
  508. write_object();
  509. setupPRINTdefault();
  510. cleanupPRINT();
  511. write_object_by_default();
  512. terpri_by_default();
  513. bool potential_number_p();
  514. object princ();
  515. object prin1();
  516. object print();
  517. object terpri();
  518. init_print_function();
  519. object siSpretty_print_format;
  520.  
  521. /*  read.d  */
  522. object standard_readtable;
  523. object Vreadtable;
  524. object Vread_default_float_format;
  525. object Vread_base;
  526. object Vread_suppress;
  527. object Kstart;
  528. object Kend;
  529. object Kradix;
  530. object Kjunk_allowed;
  531. object READtable;
  532. int READdefault_float_format;
  533. int READbase;
  534. bool READsuppress;
  535. object siSsharp_comma;
  536. bool escape_flag;
  537. object delimiting_char;
  538. bool detect_eos_flag;
  539. bool in_list_flag;
  540. bool dot_flag;
  541. bool preserving_whitespace_flag;
  542. object default_dispatch_macro;
  543. object big_register_0;
  544. int sharp_eq_context_max;
  545. setup_READtable();
  546. setup_READ();
  547. setup_standard_READ();
  548. object read_char();
  549. unread_char();
  550. object peek_char();
  551. object read_object_recursive();
  552. object read_object_non_recursive();
  553. object standard_read_object_non_recursive();
  554. object read_object();
  555. object parse_number();
  556. object parse_integer();
  557. object copy_readtable();
  558. object current_readtable();
  559. object patch_sharp();
  560. init_read();
  561. init_read_function();
  562. object read_fasl_vector();
  563.  
  564. /*  reference.c  */
  565. object symbol_function();
  566. init_reference();
  567. object Sfunction;
  568.  
  569. /*  sequence.d  */
  570. object alloc_simple_vector();
  571. object alloc_simple_bitvector();
  572. object elt();
  573. object elt_set();
  574. int length();
  575. object reverse();
  576. object nreverse();
  577. init_sequence_function();
  578.  
  579. /*  structure.c  */
  580. object siSstructure_print_function;
  581. object siSstructure_slot_descriptions;
  582. object structure_ref();
  583. object structure_set();
  584. object structure_to_list();
  585. init_structure_function();
  586.  
  587. /*  string.d  */
  588. object alloc_simple_string();
  589. object make_simple_string();
  590. bool string_eq();
  591. bool string_equal();
  592. object copy_simple_string();
  593. object coerce_to_string();
  594. bool member_char();
  595. init_string_function();
  596.  
  597. /*  symbol.d  */
  598. object string_register;
  599. object gensym_prefix;
  600. int gensym_counter;
  601. object gentemp_prefix;
  602. int gentemp_counter;
  603. object token;
  604. set_up_string_register();
  605. object make_symbol();
  606. object make_ordinary();
  607. object make_special();
  608. object make_constant();
  609. object make_si_ordinary();
  610. object make_si_special();
  611. object make_si_constant();
  612. object make_keyword();
  613. object symbol_value();
  614. object getf();
  615. object get();
  616. object putf();
  617. object putprop();
  618. bool remf();
  619. object remprop();
  620. bool keywordp();
  621. init_symbol();
  622. init_symbol_function();
  623. object gensym();        /*  to be deleted  */
  624.  
  625. #ifdef UNIX
  626. /*  unixsys.c  */
  627. #else
  628. /*  sys.c  */
  629. #endif
  630.  
  631. #ifdef UNIX
  632. /*  unixtime.c  */
  633. object unix_time_to_universal_time();
  634. #else
  635. /*  time.c  */
  636. #endif
  637.  
  638. /*  toplevel.c  */
  639. object Sspecial,Sdeclare;
  640. object siSvariable_documentation;
  641. object siSfunction_documentation;
  642. toplevel_eval();
  643. init_toplevel();
  644.  
  645. /*  typespec.c  */
  646. object
  647. St,        Snil,        Scommon,
  648. Snull,        Scons,        Slist,        Ssymbol,
  649. Sarray,        Svector,    Sbit_vector,    Sstring,
  650. Ssequence,
  651. Ssimple_array,    Ssimple_vector,    Ssimple_bit_vector,
  652.                         Ssimple_string,
  653. Sfunction,    Scompiled_function,
  654.                 Spathname,    Scharacter,
  655. Snumber,    Srational,    Sfloat,        Sstring_char,
  656. Sinteger,    Sratio,        Sshort_float,    Sstandard_char,
  657. Sfixnum,    Scomplex,    Ssingle_float,    Spackage,
  658. Sbignum,    Srandom_state,    Sdouble_float,    Sstream,
  659. Sbit,        Sreadtable,    Slong_float,    Shash_table;
  660. object Sstructure;
  661. object Ssatisfies;
  662. object Smember;
  663. object Snot;
  664. object Sor;
  665. object Sand;
  666. object Svalues;
  667. object Smod;
  668. object Ssigned_byte;
  669. object Sunsigned_byte;
  670. object SA;
  671. object TSor_symbol_string;
  672. object TSor_string_symbol;
  673. object TSor_symbol_string_package;
  674. object TSnon_negative_integer;
  675. object TSor_integer_float;
  676. object TSor_rational_float;
  677. #ifdef UNIX
  678. object TSor_pathname_string_symbol;
  679. #endif
  680. object TSor_pathname_string_symbol_stream;
  681. init_typespec();
  682. int_typespec_function();
  683.  
  684. int interrupt_flag;        /* console interupt flag */
  685. int interrupt_enable;        /* console interupt enable */
  686.  
  687. /*  CMPtemp  */
  688. object CMPtemp;
  689. object CMPtemp1;
  690. object CMPtemp2;
  691. object CMPtemp3;
  692.  
  693.